From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 19 Dec 1995 21:10:33 +0000 (+0000)
Subject: [!MULTI_FRAME] (syms_of_frame): Make mouse-pixel-position
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~85321
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=53588795b102283a55261a4db18c99faaa0e63e4;p=emacs.git

[!MULTI_FRAME] (syms_of_frame): Make mouse-pixel-position
a synonym for mouse-position, for the benefit of lisp packages
that use it.
---

diff --git a/src/frame.c b/src/frame.c
index 173f84e1cd1..33bb571fe95 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -2463,6 +2463,7 @@ syms_of_frame ()
   defsubr (&Sframe_width);
   Ffset (intern ("screen-width"), intern ("frame-width"));
   defsubr (&Smouse_position);
+  Ffset (intern ("mouse-pixel-position"), intern ("mouse-position"));
   defsubr (&Sframe_parameters);
   defsubr (&Smodify_frame_parameters);
   defsubr (&Sframe_live_p);